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v04-000 ~SEP=1 dot 


+ 
Facility: RMS32 
Abstract: 


This module allocates and initializes a file work 
area (fwa) page. 


Environment: 
star processor running starlet exec. 


| 
Author: L F Laverdure, creation date: 3-MAR-1977 
Modified By: 


V03-019 RASO321 Ron Schaefer 9-Jul-1984 
Eliminate access mode itemlist entry for $STRNLNM. 
Initialize logical name translation mode from FAB. 


V03-018 RASO296 Ron Schaefer 18-Apr-1984 
Initialize the secondary device name descriptor. 


V03-017 RASO298 n Schaefer 24-Apr-1984 
Save/restore FWASL MAIR WORK when re-initializing a FWA 
for searchlists. Logical complement of JWT0175. 


V03-016 JWT0175 Jim tongs 12-Apr-1984 
Added extra check when deallocating FWA to see if 
the ATR work page is still allocated for some reason. 


v03-015 RASO261 Ron Schaefer 8-Mar-1984 
Eliminate initialization of “rus QUOTED as it is 
now synonymous with FWASQ_NAME 


V03-014 RASO234 Ron Schaefer 11-Jan-1984 
Add support for SLBHs, revise filename string storage 


SOoOCoCoCooooooooooooooooooooooooooooooo 


fe fe we ee le we weal o lal aw lolololololelolololololololololeleololeloleolelelolololololo) 


COOSOOCOCOCOCOCOCCOCOCCOSOOSOOSOOOSOSOSOOSOOOCOOOOOOOCOCOOOOOOOOOOOOOOOOOOoOO 
COO9 090909 SII NINN ND DD DEDEDE DDE ODS TUT BB PB BB BEE PIN NIOnor 
PWR 9 OO NAUES WN (OO ODNAUE WN 0 ODNAUE WN 0 OONAUE WN OOONAUELS WN OOM 
Be Ge Ge Ge Se Oe Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 

+ 


in order to implement multi-line input sticky seorali tate 
0 V03-013 RASO226 Ron Schaefer 29-Dec-1983 

0 Add FWA $TRNLNM mode processing back in for correct PPF 

; processing. This was deleted by GAs0219 incorrectly. 

0 v03-012 RASO219 Ron Schaefer beeen 

000 Reorganize FWA high te and ntact BID v 

000 Allocate and free new aypest ca Tie fields: 

000 XLTBUFF1 KL TBUFF 2 

000 Init FWA$T _CDIRxBUF fields ter” rooted directory names. 

bOd Init FWAST_CDEVICEBUF for concealed device name. 

000 v03-011 $HZ0001 Stephen H. Zalewski 12-Sep-1983 

000 anit} o: tae a descriptor to point to the file lock name buffer in 
00 

$08 v03-010 KBT0568 Keith B. Thompson 29-Jul-1983 

it Fwa$l_xltsiz changed to a word 

000 v03-009 KB10537 Keith B. Thompson 11-Jun-1983 


N 13 
RMOFWASET ALLOCATE AND INITIALIZE FWA 16-SEP-1984 00: $267 AX/VMS Macro V04-00 Pp RM 
04-000 mete) Pas aa Pe 


Do not zero the FN, DN or RN buffers on a search 
List operation and set up FWASL_SLB_PTR correctly 


v03-008 Fyt0s25 Keith 8. Thompson 23-May-1983 


Fix a bug 
v03-007 KBT0507 Keith B. Thompson 
Add some new fields to the fwa, add RMSDEALTOCATES FWA 
and put in code to handle search List processing ~ 
v03-006 ribet Keith B. Thompson 10-Jan-1983 
Allocate fwa as a real structure 
V03-005 KBT0433 Keith B. Thompson 3-Dec-1982 
Init fwaSq_shrfil 
V03-004 KBT0406 Keith B._ Thompson 30-Nov-1982 
Init fwa$q_dir ona fix v3 revision histories 
v03-003 percsy Keith B. Thompson 5-Nov-1982 


Forget doing the offset optimazition since the fwa is 
beyond all reasonable size 


v03-002 KBT0209 Keith B. Thompson 23-Aug-1982 
Reorganize psects 


v03-001 KRM0056 Malik DER 1982 
NWAST Mae i oy NOAST QUOTEDBUF and Nwase. UNDE NOD 
were moved to the FWA, so initialize them her 
Also, PUASB TONDERLINE changed to FWASB_UNDER DEV. 
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Own Storage: 
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$008 -SBTTL RMSFWASET, Allocate and Initialize FWA 
00 


RMSFWASET - 
This routine does ali kinds of things. 


1. If it is a generic call, i.e. there is no fwa, it calls RMS$GETSPC 
to allocate e fwa and then intializes the various fields 


2. If there is alreay a fwa but this is not a search list operation 
it allocates and inits a second fwa and chains them together 


3. If there is a fwa and it says it's a search List operation then 


IN 
Llo 
145 
146 ; 
147 ; 
148 ; 
149 ; 
0 150 ; 
00 151; 
0000 135 : 
0000 153; 
0000 154 ; 
0000 186 : 
$000 123 3 
0000 158; it 
0000 159; we otapty zero the sucker and continue (saving the SLBH, 
0000 160 ; ATR_WORK and SWB pointers) 
0000 161 ; ‘ 
0000 16¢ ; Calling sequence: 
0000 163; 
0000 164 ; BSBW RMSFWASET 
0000 165; 
0000 166 ; Input Parameters: 
0000 167; 
0000 168 ; R11 impure area pointer 
0000 169; R9 ifab address 
0000 170; R8 fab address 
0000 171; ae 
0000 76 3; Implicit Inputs: 
0000 173; none 
0000 174; 
0000 175 ; Output Parameters: 
0000 176; 
0000 177; R10 fwa buffer address 
0000 178 ; R1-R5 destroyed 
0000 179; RO status code 
0000 180: 
0000 181 ; Implicit Outputs: 
0000 136 ; AINE A 
0000 183; fwa buffer descriptors initialized: 
0000 184 ; 
0000 185; FWASQ_XLTBUF1 
0000 186 ; FWASQ_XLTBUF2 
0000 187 ; FWASQ_SHRFIL 
4 188 ; WASQ_SHRFIL_LCK 
000 189 ; FWASQ_AS SHRFIL 
0000 190 ; FWASQ_DIR 
444 191 ; F WASQ_NODE 
000 13 : FWA$Q_ QUOTED 
0000 193; FWASQ_DEVICE : ; 
0000 194 ; FWASQ_DIR1 and all sub directories 
0000 195 ; FWASQ_NAME 
0000 196 ; FWASQ- TYPE 
2000 13 ; FWASQ_VERION 
000 199 ; FWAST_ITMLST static fields initialized 
0000 $39 ; FWASL_SLBH_xLINK queue header initialized 
0000 13 FWASB_UNDER_DEV initialized to the character ‘_' 
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3 Completion Codes: 
; SUC or DME 

Side Effects: 

: Uses up tons of memory = have you looked at FWA$C_BLN Lately? 


RMSFWASET: : 
MOVL 


IFBSL_FWA_PTR(R9) ,R10 ; get addr of fwa if any 
BEQL 10$ ; branch if none 
BBC #FWASV_SL_PASS,(R10),10$ ; branch if not search List pass 


: We are here for the nth time parsing search list. Clear the fwa and reinit 
; it so we can do a clean parse 


PUSHL FWASL_ATR_WORK(R10) ; save attr scratch page ptr 
PUSHL FWASL_SWB_PTR(R10) ; save SWB ptr 
MOVQ FWASL-SLBA_FLINK(R10) ,-(SP) ; Save the SLBH ptrs 
MOVCS #0,(SP),#O7#FWASC_BLN, (R10) i zero the fwa 
V (SP)+,FWASL_SLBH_FLINK(R10) ; restore SLBH ptrs 
POPL FWASL_SWB_PTR(R10) ; and SWB ptr 
POPL FWASL_ATR_WORK(R10) ; and attr scratch page ptr 
SSB #FWASV SL_PASS, (R10) ; and sl pass flag 
BRB INIi_F 
10$: MOVL R9,R1 ; copy address of ifab 
MOVZWL #FWASC_BLN,R2 3; # of bytes 
BSBW RMSGETSPC ; allocate FWA => R1 
BLBS RO,20$ ; success continue 
RSB ; get out on error 


: If there is already a fwa present (S$RENAME) chain them so we can deallocate 


20$: MOVL R10, FWASL_FWA_PTR(R1) ; chan the fwas 
MOVL R1, [FBSL_FWA_PTR(R9) ; stuff the ifab with new fwa 
MOVL R1,R10 ; put fwa in right reg 
MOVAL FWASL_SLBH_FLINK(R10),RO ; init SLBH queue 
MOVL RO, (RO) : fwd Link 
MOVL (RO) +, (ROD : back Link 


: Initialize the various fwa buffer descriptors with the size and address 
3; of the related buffer. 


INIT_FWA: 
MOVB = #FWASC FWASB BID (R10 


_BID D ; set the id 
MOVZWL #FWASSWILD,FWASO_DIR( 


) 
0) 3; scratch dir buffer 
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40 AA 0868 CA YE i 2 MOVAB FWAST_WILD(R10) ,FWASQ_DIR+4(R10) 
6 61 3 
$e 6¢ ; Don't need to set the size field. it is set in getdev_char by $getdvi 
06 64° | 
0194 CA 0898 CA YE i 65 MOVAB FWAST_SHRF ILBUF (R10) ,FWASQ SHRFIL+4(R10) 
019C CA O8A8B CA 9E 06A 66 MOVAB FWAST—  SHRFIL LCKNAM(R10) FQASQ_SHRFIL_LCK+4(R10) 
O1A4 CA 08B8 CA 9E 8 44 MOVAB FWAST_ AS RSHRFILBUF-CRIO) FWASO. AS _SHRFIL+4(R10) 
007 69 ; 
ie 70 ; LL th bgrece filename element descriptors (address only) 
007 re ; (FWASQ_NODE1-8 descriptors are initialized in RMOXPFN as they are needed) | 
O78 73° | 
OODC CA O7E9 CA YE 007 74 MOVAB FWAST_NODEBUF (R10) ,FWASQ “yt MERE ; Store NODEBUF addr 
O0E4 CA OS5SE9 CA YE O007F 75 MOVAB FWAS$T “DEVICEBUF (R10) FWASQ_DEVICE+4(R10) 
OOEC CA O6EB CA 9E 0086 76 MOVAB FWAST “CDEVICEBUF (R105 ,FWASO_ CONCEAL_DEV+4(R10) | 
55 0246 CA 9E 008D sve MOVAB FWAS$T_DIRIBUF(R10),R5 ; gt address of directory buffers | 
54 0134 CA 9E B086 78 MOVAB FWA$Q_DIR1+4(R10) ,R4 ; get address of directory descr 
53 O37E CA 9E 009 79 MOVAB FWAST “CDIRIBUF (R10) ,R3 ; get address of root directory buff 
52 OOF4 CA 9E O009C 80 MOVAB FWASQ-CDIR1+4(R10) ,R2 : et address of directory descr 
51 D4 OOAI 81 CLRL R1 : irectories counter 
64 65 7E OOA3 soe 10$: MOVAQ (R5),(R4) ; store buffer address in descriptor 
55 27 CO QOA6 28 ADDL #FWASC _DIRBUFSIZ,R5 ; address of next directory buffer 
54 08 CO QO0OA9 see ADDL #8 : address of next directory descr 
9¢ 63 7E OQOAC 85 MOVAG (R$), (R2) ; store buffer address in descriptor | 
5 27 60 «(OOAF)§ 62.86 ADDL2 sruagc _DIRBUFSIZ,R3 ; address of next directory buffer 
52 08 CO 0082 287 ADDL2 4#8,R ; address of next directory buffer 
EA 51 07 +F3 0085 288 AOBLEQ #FWASC_MAXSUBDIR R1,10$ Loop if more 
0174 CA Q486 CA 9E 00B9 289 MOVAB FWAST _RAM AMEBU UF (R16), FWASQ _NAME+4 (R10) 
017C CA 05B6 CA 9E 00CO 290 MOVAB FWAST_ ~TYPEBUE (RIOD. * FWASQ~ TYPE+4(R10) 
0184 CA OS5SDE CA 9E pate +4! MOVAB FWAST ~VERBUF (R10) ,F FWA$Q _VERSION+4 (R10) 
OOCE $38 3 2 : , “ : . 
Boee Soe ; Initalize the static fields of the item list for logical name services 
OOCE 296 ° 
00010004 8F D0 OOCE $38 MOVL #<LNM$_INDEX816>+4,- 3; set index item code 
AA 00D4 298 WAST _ITM_INDEX(R10) : and Lengt 
00030004 8F DO 00D6 99 MOVL #<LNnm$ ATTRIBUTESS16>¢4..~ ; set attributes item code 
AA 00DC 00 WAST _TTM_ATTR(R10) ; and lengt 
OOO2Z00FF 8F DO OODE 01 MOVL acl MASS TRING@16>+255,- 3 set oprin item code 
74 AA Obee 6s T Tin STRING(R10) s and | a 
OO9E CA 3 E6 MOVAW FWA ASurK LTS1Z(R10) ; set result Lenght address 
C AA OOEA 304 WAST™ Ith STRING+8 (R10) 
00070004 8F D0 OOEC 05 MOVL #<LNMS_MAR_INDEXO16>+4,- 3: set max index item code 
0080 CA OOFe 06 FWAST_TTM_MAX_INDEX(R10) : and length 
OFS 08 ; 
i t : Init the logical name translation access mode field. | 
69 EF OF V EXTZV or eey tn C's moore - 3; search name tables desired 
50 GAA F8 18 FABSB SRCMOBES (RG) , RO; 
03 12 OOFB 314 BNEQ 40$ : ae 
50. (0 9A FD 15 MOVZBL #PSLSC_USER,RO ; if none specified, default to user 


F 14 | 
ALLOCATE AND INITIALIZE FWA -SEP=1984 + 00: 3:47 VAX/VMS Macro V04-00 Page 8 RMQ 


RMSFWASET, Allocate and Initialize FWA “SEP=1984 1:51 CRMS.SRCIRMOFWASET.MAR; 1 ( 
0090 CA 50 90 Q1 16 408: MOVB RO,FWASB_XLTMODE(R10) ; set mode of translation 


8 
19 ; 
; Init the ‘fake’ SLB in the FWA 
50 00B8 CA DE MOVAL FWAST_SLB(R10) ,RO i get the addr of the fake 
ASSUME SLBSL_FLINK EQ 0 
ASSUME SLB$L_BLINK EQ SLBSL_FLINK+4 
60 50 00 MOVL ; set up flink 
60 80 D0 MOVL PRO) 8 CROD : set up blink 


Move an underscore character to FWASB_UNDER_DEV & FWASB_UNDER_NOD 


| 

| 

| 

| 

| 

| 

| 

MOVB = #*A/_/ ,FWASB_UNDER_DEV(R10) | 
MOVB  —- #*A/_/, FWASB_UNDER—NOD (R10) 

MSSU 

| 

| 

| 

| 
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-SBTTL RMSDEALLOCATE_FWA, Deallocate FWA 


ro 


+ 
+ 


RMSDEALLOCATE_FWA = 


Calling sequence: 
BSBW RMSDEALLOCATE_FWA 
Input Parameters: 


R11 impure area pointer 

R9 ifab address 
Implicit Inputs: 

none 


Output Parameters: 
n 

Implicit Outputs: 
none 

Completion Codes: 
none 


Side Effects: 
RO-R5 destroyed 


Bete Ge Se Ge Ge Se Se Ge Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge 


RMSDEALLOCATE _FWA: : 
MOVQ 


R6,-(SP) 3 save R6/R7 
MOVL IFBSL_FWA_PTR(R9) ,R7 ; get the addr of the fwa 
BEQL 100$ 3; none, then exit 


: We have a fwa, check for SLBs 


10$:  REMQUE OFWASL_SLBH_FLINK(R7) .R6; get slbh list entry 
BVS 0$ 


3; Skip if no more 
BSBB DEALLOCATE_SLBS 
MOVZBL SLBHS$B_BLNTR6) ,R2 


ADDL #SLBHST_BLN,R2 add ov 


OV R6,R4 : get into right register 
BSBW = RMSRETSPC1 > return slbh 
BRB 10$ 3 next! 


release the SWB if present 


We Oe ee 


0$: MOVL 


FWASL_SWB_PTR(R7) ,R4 ; get swb ptr 
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This routine dealiocates the fwa(s) and any associated structures 


get size of slbh string 


Page 


RMOFWASET ALLOCATE AND INITIALIZE FWA 19-SEP-1984 0 
v04-000 RMSDEALLOCATE_FWA, Deallocate FWA =SEP=1984 1 
03 1 14 9 BEQL 90% 
FEBO' ¥ Se 335 BSBW  RMSRETBLK1 
54 58 A7 09 144 401 90$:  MOVL  FWASL_ATR_WORK(R7) ,R4 
03 13 014 40¢ BEQL 
FEAD' 30 ME 403 BSBW  RMSRETIPAG 
48 AZ DD 0153 405 95$: PUSHL FWASL_FWA_PTR(R7) 
57 DO 0156 406 MOVL 7,R4 
£2 093c BF 3¢ 0159 407 MOVZWL #FWASC_BLN,R2 
FESF* 30 O15€ 408 BSBW  RMSRETSPC1 
57 BED) 0161 409 POPL 7 
C3 (12 0164 410 BNEQ 10% 
38 A9 bs 0166 411 CLRL = IFBSL_FWA_PTR(R9) 
56 BE 7D 0169 41g 100$: MOVO  (SP)+7R6 
05 016C 41 RSB 
016D 414 
016D 415 DEALLOCATE_SLBS: 
016D 416 MOJL  SLBHSL_SLB_QUE(R6),R4 
0171 417 BEQL 20$ 
0173 «418 
0173 «419 ASSUME SLBS$L_FLINK EQ 
0173 420 
017 431 10$:  PUSHL (R4) 
0175 4 é BSBW  RMSRETBLK1 
0178 42 POPL R4 
017B 424 CMPL = R4, SLBH$L_SLB_QUE (R6) 
017F 495 BNEQ 108 
0181 426 208:  RSB 
0182 427 
0182 428 


oO 
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if there is one 

return swb 


Is the ATR work area allocated? 
If not, continue 
Otherwise, deallocate it 


save the address of the next 
set fwa addr is proper reg 
set size of fwa 
return space 

et next fwa 

ranch if there is one 
clear the ifab pointer 
coazers R6/R7 
exit 


get slb ptr into R4 


save Link 
return slb- 
retrieve Link 
was that the 
no. 

exit 


last one? 


a= 


— | 
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Symbol table green 1884 $o.57; RMOFWASET .MAR; 1 eget 


$$.PSECT_EP 
SSRMSTEST 
$SSRMS_PBUGCHK 
$SSRMS_TBUGCHK 
SSRMS_UMODE 
DEALLOCATE SLBS 
FABSB_ACMODES 
FABSS_LNM_MODE 
F ABSV_LNM_MODE 
FWASB_BID 
FWA$SB_UNDER_DEV 
FWASB UNDER” NOD 
$B8- XL TMOBE 


LNMS_MAX_ INDEX 
LNM$-STRING 


pstst USER 
RMSDEALLOCATE_FWA 
RMSFWA 


“uw 
ooooo UNS 
ooooo —™~N 
pole jojo lo! 
ooooo 
ooooo me 
o-CcOooco Z>,Y 
ON COCO Ix 
SOON O™ 


RARER 


01 

01 

Xx 4 

eeeerere x 1 
x Q1 

i. 


P 


SE 
$P 
1P 
BL 
SP 
BL 


mn 
or wn” 
KK OK POsOM 


c 
x= 
nnuuun 
ooo°oo 
oooo 
oooo 
oooo 
oooo 
oooo 
o-oo 
ALloo 


0 
6 
0 
0 
0 
E 
3 SLBHSB_ 
SLBHS$C_BLN 
1 ¢ SLBH$L_SLB_QUE 
FWASC_DIRBUF SIZ § 
FWASC_MAXSUBDIR 
FWASL_ATR_WORK 
FWASL_FWA_PTR 
FWASL_SLBA_FLINK 
FWASL_SWB_PTR 
FWASQ_AS_ SHRFIL 
FWASQ_CDIR F 
FWASQ_CONCEAL_DEV 
FWASQ_DEVICE 3 
FW 
5 
7 
9 


F 
IF 
IF 
IF 
IF 
IM 
IM 
IM 
IM 
IR 
IR 
IR 
IR 
I 
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FWASQ~ SHRF IL 
FWASQSHREIL_LCK 


S_WILD 
FWAST_AS_SHRF ILBUF 
FWAST_CDEVICEBUF 
FWAST_CDIRIBUF 


OOWH OM WDOOSWDOWDOOM CODBOOM CWO NNO WVU OMOMOr>rl f£HOOro 


FWAST_1TM_ INDEX 
FWAST_ITM_MAX_ INDEX 


U 
“NODEBUF 
FWAST—SHRF ILBUF 
FWASTSHRFIL_LCKNAM 
FWAST—SL 
FWAST~TYPEBUF 
FWAST—~VERBUF 


—WWMICoMmM ro corn O Coco0o OO & 


INIT FWA 
LNMS"ATTRIBUTES 
LNM$— INDEX 
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Psect synopsis “SEP=1984 16:21:51 CRMS.SRCIRMOFWASET.MAR; 1 (5) | 
| 
pwn nr nce mo + | 
: Psect synopsis ! 
poem n eee nese enn ce + j 
PSECT name Allocation PSECT No. Attributes 
_ OS « 00000000 < 0.) 00 ¢ OQ.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMSO 00000182 ( 386.) 01 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS$ 00000000 < 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR' EXE RD WRT NOVEC BYTE 
Peer omen oe eee eee eee moensee 
! Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization | 29 00:00:00.08 00:00:01.18 
Command processing 116 00:00:00.77 00:00:04.78 
ass 267 00:00:07.67 00:00:25.26 
Symbol table sort 0 00:00:01.03 00:00:01.92 
Pass 2 84 00:00:01.61 00:00:04.36 
Symbol table output 10 00:00:00.09 00:00:00.38 
Psect synopsis output 1 00:00:00.03 00:00:00.31 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 509 00:00:11.29 00:00:38.19 


The working set Limit was 1200 pages. F 

42930 bytes (84 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 781 non-local and 12 local symbols. 
428 source Lines were read in Pass 1, producing 14 object records in Pass 2 

19 pages of virtual memory were used to define 18 macros. 


See rr, + 
! Macro Library statistics ! 


oe 


Macro Library name Macros defined 
.$255$DUA28: CRMS .OBJIJRMS.MLB; 1 8 
“S522 S0UAEE: SYS.OBJJLIB.MLB; 1 0 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 6 
TOTALS (all Libraries) 14 


883 GETS were required to define 14 macros. | 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMOFWASET/OBJ=OBJ$:RMOFWASET MSRC$:RMOFWASET/UPDATE=(ENHS:RMOFWASET) +EXECML$/LIB+LIB$:RMS/LIB 


ENT CORPORATION 
AND PROPRIETARY 


